<?php

require_once(_MPDF_PATH.'classes/ttfontsuni.php');

class TTFontFile_Analysis extends TTFontFile
{

    // Used to get font information from files in directory
    public function extractCoreInfo($file, $TTCfontID=0)
    {
        $this->filename = $file;
        $this->fh = fopen($file, 'rb');
        if (!$this->fh) {
            return ('ERROR - Can\'t open file ' . $file);
        }
        $this->_pos = 0;
        $this->charWidths = '';
        $this->glyphPos = array();
        $this->charToGlyph = array();
        $this->tables = array();
        $this->otables = array();
        $this->ascent = 0;
        $this->descent = 0;
        $this->numTTCFonts = 0;
        $this->TTCFonts = array();
        $this->version = $version = $this->read_ulong();
        $this->panose = array();	// mPDF 5.0
        if ($version==0x4F54544F) {
            return("ERROR - NOT ADDED as Postscript outlines are not supported - " . $file);
        }
        if ($version==0x74746366) {
            if ($TTCfontID > 0) {
                $this->version = $version = $this->read_ulong();	// TTC Header version now
                if (!in_array($version, array(0x00010000,0x00020000))) {
                    return("ERROR - NOT ADDED as Error parsing TrueType Collection: version=".$version." - " . $file);
                }
            } else {
                return("ERROR - Error parsing TrueType Collection - " . $file);
            }
            $this->numTTCFonts = $this->read_ulong();
            for ($i=1; $i<=$this->numTTCFonts; $i++) {
                $this->TTCFonts[$i]['offset'] = $this->read_ulong();
            }
            $this->seek($this->TTCFonts[$TTCfontID]['offset']);
            $this->version = $version = $this->read_ulong();	// TTFont version again now
            $this->readTableDirectory(false);
        } else {
            if (!in_array($version, array(0x00010000,0x74727565))) {
                return("ERROR - NOT ADDED as Not a TrueType font: version=".$version." - " . $file);
            }
            $this->readTableDirectory(false);
        }

        /* Included for testing...
                $cmap_offset = $this->seek_table("cmap");
                $this->skip(2);
                $cmapTableCount = $this->read_ushort();
                $unicode_cmap_offset = 0;
                for ($i=0;$i<$cmapTableCount;$i++) {
                    $x[$i]['platformId'] = $this->read_ushort();
                    $x[$i]['encodingId'] = $this->read_ushort();
                    $x[$i]['offset'] = $this->read_ulong();
                    $save_pos = $this->_pos;
                    $x[$i]['format'] = $this->get_ushort($cmap_offset + $x[$i]['offset'] );
                    $this->seek($save_pos );
                }
                print_r($x); exit;
        */
        ///////////////////////////////////
        // name - Naming table
        ///////////////////////////////////

        /* Test purposes - displays table of names
                    $name_offset = $this->seek_table("name");
                    $format = $this->read_ushort();
                    if ($format != 0 && $format != 1)	// mPDF 5.3.73
                        die("Unknown name table format ".$format);
                    $numRecords = $this->read_ushort();
                    $string_data_offset = $name_offset + $this->read_ushort();
                    for ($i=0;$i<$numRecords; $i++) {
                        $x[$i]['platformId'] = $this->read_ushort();
                        $x[$i]['encodingId'] = $this->read_ushort();
                        $x[$i]['languageId'] = $this->read_ushort();
                        $x[$i]['nameId'] = $this->read_ushort();
                        $x[$i]['length'] = $this->read_ushort();
                        $x[$i]['offset'] = $this->read_ushort();
        
                        $N = '';
                        if ($x[$i]['platformId'] == 1 && $x[$i]['encodingId'] == 0 && $x[$i]['languageId'] == 0) { // Roman
                            $opos = $this->_pos;
                            $N = $this->get_chunk($string_data_offset + $x[$i]['offset'] , $x[$i]['length'] );
                            $this->_pos = $opos;
                            $this->seek($opos);
                        }
                        else { 	// Unicode
                            $opos = $this->_pos;
                            $this->seek($string_data_offset + $x[$i]['offset'] );
                            $length = $x[$i]['length'] ;
                            if ($length % 2 != 0)
                                $length -= 1;
                        //		die("PostScript name is UTF-16BE string of odd length");
                            $length /= 2;
                            $N = '';
                            while ($length > 0) {
                                $char = $this->read_ushort();
                                $N .= (chr($char));
                                $length -= 1;
                            }
                            $this->_pos = $opos;
                            $this->seek($opos);
                        }
                        $x[$i]['names'][$nameId] = $N;
                    }
                    print_r($x); exit;
        */

        $name_offset = $this->seek_table("name");
        $format = $this->read_ushort();
        if ($format != 0 && $format != 1) {	// mPDF 5.3.73
            return("ERROR - NOT ADDED as Unknown name table format ".$format." - " . $file);
        }
        $numRecords = $this->read_ushort();
        $string_data_offset = $name_offset + $this->read_ushort();
        $names = array(1=>'',2=>'',3=>'',4=>'',6=>'');
        $K = array_keys($names);
        $nameCount = count($names);
        for ($i=0;$i<$numRecords; $i++) {
            $platformId = $this->read_ushort();
            $encodingId = $this->read_ushort();
            $languageId = $this->read_ushort();
            $nameId = $this->read_ushort();
            $length = $this->read_ushort();
            $offset = $this->read_ushort();
            if (!in_array($nameId, $K)) {
                continue;
            }
            $N = '';
            if ($platformId == 3 && $encodingId == 1 && $languageId == 0x409) { // Microsoft, Unicode, US English, PS Name
                $opos = $this->_pos;
                $this->seek($string_data_offset + $offset);
                if ($length % 2 != 0) {
                    $length += 1;
                }
                $length /= 2;
                $N = '';
                while ($length > 0) {
                    $char = $this->read_ushort();
                    $N .= (chr($char));
                    $length -= 1;
                }
                $this->_pos = $opos;
                $this->seek($opos);
            } elseif ($platformId == 1 && $encodingId == 0 && $languageId == 0) { // Macintosh, Roman, English, PS Name
                $opos = $this->_pos;
                $N = $this->get_chunk($string_data_offset + $offset, $length);
                $this->_pos = $opos;
                $this->seek($opos);
            }
            if ($N && $names[$nameId]=='') {
                $names[$nameId] = $N;
                $nameCount -= 1;
                if ($nameCount==0) {
                    break;
                }
            }
        }
        if ($names[6]) {
            $psName = preg_replace('/ /', '-', $names[6]);
        } elseif ($names[4]) {
            $psName = preg_replace('/ /', '-', $names[4]);
        } elseif ($names[1]) {
            $psName = preg_replace('/ /', '-', $names[1]);
        } else {
            $psName = '';
        }
        if (!$names[1] && !$psName) {
            return("ERROR - NOT ADDED as Could not find valid font name - " . $file);
        }
        $this->name = $psName;
        if ($names[1]) {
            $this->familyName = $names[1];
        } else {
            $this->familyName = $psName;
        }
        if ($names[2]) {
            $this->styleName = $names[2];
        } else {
            $this->styleName = 'Regular';
        }

        ///////////////////////////////////
        // head - Font header table
        ///////////////////////////////////
        $this->seek_table("head");
        $ver_maj = $this->read_ushort();
        $ver_min = $this->read_ushort();
        if ($ver_maj != 1) {
            return('ERROR - NOT ADDED as Unknown head table version '. $ver_maj .'.'. $ver_min." - " . $file);
        }
        $this->fontRevision = $this->read_ushort() . $this->read_ushort();
        $this->skip(4);
        $magic = $this->read_ulong();
        if ($magic != 0x5F0F3CF5) {
            return('ERROR - NOT ADDED as Invalid head table magic ' .$magic." - " . $file);
        }
        $this->skip(2);
        $this->unitsPerEm = $unitsPerEm = $this->read_ushort();
        $scale = 1000 / $unitsPerEm;
        $this->skip(24);
        $macStyle = $this->read_short();
        $this->skip(4);
        $indexLocFormat = $this->read_short();

        ///////////////////////////////////
        // OS/2 - OS/2 and Windows metrics table
        ///////////////////////////////////
        $sFamily = '';
        $panose = '';
        $fsSelection = '';
        if (isset($this->tables["OS/2"])) {
            $this->seek_table("OS/2");
            $this->skip(30);
            $sF = $this->read_short();
            $sFamily = ($sF >> 8);
            $this->_pos += 10;  //PANOSE = 10 byte length
            $panose = fread($this->fh, 10);
            $this->panose = array();
            for ($p=0;$p<strlen($panose);$p++) {
                $this->panose[] = ord($panose[$p]);
            }
            $this->skip(20);
            $fsSelection = $this->read_short();
        }

        ///////////////////////////////////
        // post - PostScript table
        ///////////////////////////////////
        $this->seek_table("post");
        $this->skip(4);
        $this->italicAngle = $this->read_short() + $this->read_ushort() / 65536.0;
        $this->skip(4);
        $isFixedPitch = $this->read_ulong();



        ///////////////////////////////////
        // cmap - Character to glyph index mapping table
        ///////////////////////////////////
        $cmap_offset = $this->seek_table("cmap");
        $this->skip(2);
        $cmapTableCount = $this->read_ushort();
        $unicode_cmap_offset = 0;
        for ($i=0;$i<$cmapTableCount;$i++) {
            $platformID = $this->read_ushort();
            $encodingID = $this->read_ushort();
            $offset = $this->read_ulong();
            $save_pos = $this->_pos;
            if (($platformID == 3 && $encodingID == 1) || $platformID == 0) { // Microsoft, Unicode
                $format = $this->get_ushort($cmap_offset + $offset);
                if ($format == 4) {
                    if (!$unicode_cmap_offset) {
                        $unicode_cmap_offset = $cmap_offset + $offset;
                    }
                }
            } elseif ((($platformID == 3 && $encodingID == 10) || $platformID == 0)) { // Microsoft, Unicode Format 12 table HKCS
                $format = $this->get_ushort($cmap_offset + $offset);
                if ($format == 12) {
                    $unicode_cmap_offset = $cmap_offset + $offset;
                    break;
                }
            }
            $this->seek($save_pos);
        }

        if (!$unicode_cmap_offset) {
            return('ERROR - Font ('.$this->filename .') NOT ADDED as it is not Unicode encoded, and cannot be used by mPDF');
        }

        $rtl = false;
        $indic = false;
        $cjk = false;
        $sip = false;
        $smp = false;
        $pua = false;
        $puaag = false;
        $glyphToChar = array();
        $unAGlyphs = '';
        // Format 12 CMAP does characters above Unicode BMP i.e. some HKCS characters U+20000 and above
        if ($format == 12) {
            $this->seek($unicode_cmap_offset + 4);
            $length = $this->read_ulong();
            $limit = $unicode_cmap_offset + $length;
            $this->skip(4);
            $nGroups = $this->read_ulong();
            for ($i=0; $i<$nGroups ; $i++) {
                $startCharCode = $this->read_ulong();
                $endCharCode = $this->read_ulong();
                $startGlyphCode = $this->read_ulong();
                if (($endCharCode > 0x20000 && $endCharCode < 0x2A6DF) || ($endCharCode > 0x2F800 && $endCharCode < 0x2FA1F)) {
                    $sip = true;
                }
                if ($endCharCode > 0x10000 && $endCharCode < 0x1FFFF) {
                    $smp = true;
                }
                if (($endCharCode > 0x0590 && $endCharCode < 0x077F) || ($endCharCode > 0xFE70 && $endCharCode < 0xFEFF) || ($endCharCode > 0xFB50 && $endCharCode < 0xFDFF)) {
                    $rtl = true;
                }
                if ($endCharCode > 0x0900 && $endCharCode < 0x0DFF) {
                    $indic = true;
                }
                if ($endCharCode > 0xE000 && $endCharCode < 0xF8FF) {
                    $pua = true;
                    if ($endCharCode > 0xF500 && $endCharCode < 0xF7FF) {
                        $puaag = true;
                    }
                }
                if (($endCharCode > 0x2E80 && $endCharCode < 0x4DC0) || ($endCharCode > 0x4E00 && $endCharCode < 0xA4CF) || ($endCharCode > 0xAC00 && $endCharCode < 0xD7AF) || ($endCharCode > 0xF900 && $endCharCode < 0xFAFF) || ($endCharCode > 0xFE30 && $endCharCode < 0xFE4F)) {
                    $cjk = true;
                }

                $offset = 0;
                // Get each glyphToChar - only point if going to analyse un-mapped Arabic Glyphs
                if (isset($this->tables['post'])) {
                    for ($unichar=$startCharCode;$unichar<=$endCharCode;$unichar++) {
                        $glyph = $startGlyphCode + $offset ;
                        $offset++;
                        $glyphToChar[$glyph][] = $unichar;
                    }
                }
            }
        } else {	// Format 4 CMap
            $this->seek($unicode_cmap_offset + 2);
            $length = $this->read_ushort();
            $limit = $unicode_cmap_offset + $length;
            $this->skip(2);

            $segCount = $this->read_ushort() / 2;
            $this->skip(6);
            $endCount = array();
            for ($i=0; $i<$segCount; $i++) {
                $endCount[] = $this->read_ushort();
            }
            $this->skip(2);
            $startCount = array();
            for ($i=0; $i<$segCount; $i++) {
                $startCount[] = $this->read_ushort();
            }
            $idDelta = array();
            for ($i=0; $i<$segCount; $i++) {
                $idDelta[] = $this->read_short();
            }
            $idRangeOffset_start = $this->_pos;
            $idRangeOffset = array();
            for ($i=0; $i<$segCount; $i++) {
                $idRangeOffset[] = $this->read_ushort();
            }

            for ($n=0;$n<$segCount;$n++) {
                if (($endCount[$n] > 0x0590 && $endCount[$n] < 0x077F) || ($endCount[$n] > 0xFE70 && $endCount[$n] < 0xFEFF) || ($endCount[$n] > 0xFB50 && $endCount[$n] < 0xFDFF)) {
                    $rtl = true;
                }
                if ($endCount[$n] > 0x0900 && $endCount[$n] < 0x0DFF) {
                    $indic = true;
                }
                if (($endCount[$n] > 0x2E80 && $endCount[$n] < 0x4DC0) || ($endCount[$n] > 0x4E00 && $endCount[$n] < 0xA4CF) || ($endCount[$n] > 0xAC00 && $endCount[$n] < 0xD7AF) || ($endCount[$n] > 0xF900 && $endCount[$n] < 0xFAFF) || ($endCount[$n] > 0xFE30 && $endCount[$n] < 0xFE4F)) {
                    $cjk = true;
                }
                if ($endCount[$n] > 0xE000 && $endCount[$n] < 0xF8FF) {
                    $pua = true;
                    if ($endCount[$n] > 0xF500 && $endCount[$n] < 0xF7FF) {
                        $puaag = true;
                    }
                }
                // Get each glyphToChar - only point if going to analyse un-mapped Arabic Glyphs
                if (isset($this->tables['post'])) {
                    $endpoint = ($endCount[$n] + 1);
                    for ($unichar=$startCount[$n];$unichar<$endpoint;$unichar++) {
                        if ($idRangeOffset[$n] == 0) {
                            $glyph = ($unichar + $idDelta[$n]) & 0xFFFF;
                        } else {
                            $offset = ($unichar - $startCount[$n]) * 2 + $idRangeOffset[$n];
                            $offset = $idRangeOffset_start + 2 * $n + $offset;
                            if ($offset >= $limit) {
                                $glyph = 0;
                            } else {
                                $glyph = $this->get_ushort($offset);
                                if ($glyph != 0) {
                                    $glyph = ($glyph + $idDelta[$n]) & 0xFFFF;
                                }
                            }
                        }
                        $glyphToChar[$glyph][] = $unichar;
                    }
                }
            }
        }
        // 'POST' table for un-mapped arabic glyphs
        if (isset($this->tables['post'])) {
            $this->seek_table("post");
            // Only works on Format 2.0
            $formata = $this->read_ushort();
            $formatb = $this->read_ushort();
            if ($formata == 2 && $formatb == 0) {
                $this->skip(28);
                $nGlyfs = $this->read_ushort();
                $glyphNameIndex = array();
                for ($i=0; $i<$nGlyfs; $i++) {
                    $glyphNameIndex[($this->read_ushort())] = $i;
                }
    
                $opost = $this->get_table('post');
                $ptr = 34+($nGlyfs*2);
                for ($i=0; $i<$nGlyfs; $i++) {
                    $len = ord(substr($opost, $ptr, 1));
                    $ptr++;
                    $name = substr($opost, $ptr, $len);
                    $gid = $glyphNameIndex[$i+258];
                    // Select uni0600.xxx(x) - uni06FF.xxx(x)
                    if (preg_match('/^uni(06[0-9a-f]{2})\.(fina|medi|init|fin|med|ini)$/i', $name, $m)) {
                        if (!isset($glyphToChar[$gid]) || (isset($glyphToChar[$gid]) && is_array($glyphToChar[$gid]) && count($glyphToChar[$gid])==1 && $glyphToChar[$gid][0]>57343 && $glyphToChar[$gid][0]<63489)) {	// if set in PUA private use area E000-F8FF, or NOT Unicode mapped
                            $uni = hexdec($m[1]);
                            $form = strtoupper(substr($m[2], 0, 1));
                            // Assign new PUA Unicode between F500 - F7FF
                            $bit = $uni & 0xFF;
                            if ($form == 'I') {
                                $bit += 0xF600;
                            } elseif ($form == 'M') {
                                $bit += 0xF700;
                            } else {
                                $bit += 0xF500;
                            }
                            $unAGlyphs .= $gid;
                            $name = 'uni'.strtoupper($m[1]).'.'.strtolower($m[2]);
                            $unAGlyphs .= ' : '.$name;
                            $unihexstr = $m[1];
                            $unAGlyphs .= ' : '.$unihexstr;
                            $unAGlyphs .= ' : '.$uni;
                            $unAGlyphs .= ' : '.$form;
                            // if already set in PUA private use area E000-F8FF
                            if (isset($glyphToChar[$gid]) && $glyphToChar[$gid][0]>57343 && $glyphToChar[$gid][0]<63489) {
                                $unAGlyphs .= ' : '.$glyphToChar[$gid][0].' {'.dechex($glyphToChar[$gid][0]).'}';
                            }
                            //else $unAGlyphs .= ':';
                            $unAGlyphs .= ' : '.strtoupper(dechex($bit));
                            $unAGlyphs .= '<br />';
                        }
                    }
                    $ptr += $len;
                }
                if ($unAGlyphs) {
                    $unAGlyphs = 'GID:Name:Unicode base Hex:Dec:Form:PUA Unicode<br />'.$unAGlyphs ;
                }
            }
        }



        $bold = false;
        $italic = false;
        $ftype = '';
        if ($macStyle & (1 << 0)) {
            $bold = true;
        }	// bit 0 bold
        elseif ($fsSelection & (1 << 5)) {
            $bold = true;
        }	// 5 	BOLD 	Characters are emboldened

        if ($macStyle & (1 << 1)) {
            $italic = true;
        }	// bit 1 italic
        elseif ($fsSelection & (1 << 0)) {
            $italic = true;
        }	// 0 	ITALIC 	Font contains Italic characters, otherwise they are upright
        elseif ($this->italicAngle <> 0) {
            $italic = true;
        }

        if ($isFixedPitch) {
            $ftype = 'mono';
        } elseif ($sFamily >0 && $sFamily <8) {
            $ftype = 'serif';
        } elseif ($sFamily ==8) {
            $ftype = 'sans';
        } elseif ($sFamily ==10) {
            $ftype = 'cursive';
        }
        // Use PANOSE
        if ($panose) {
            $bFamilyType=ord($panose[0]);
            if ($bFamilyType==2) {
                $bSerifStyle=ord($panose[1]);
                if (!$ftype) {
                    if ($bSerifStyle>1 && $bSerifStyle<11) {
                        $ftype = 'serif';
                    } elseif ($bSerifStyle>10) {
                        $ftype = 'sans';
                    }
                }
                $bProportion=ord($panose[3]);
                if ($bProportion==9 || $bProportion==1) {
                    $ftype = 'mono';
                }	// ==1 i.e. No Fit needed for OCR-a and -b
            } elseif ($bFamilyType==3) {
                $ftype = 'cursive';
            }
        }

        fclose($this->fh);
        return array($this->familyName, $bold, $italic, $ftype, $TTCfontID, $rtl, $indic, $cjk, $sip, $smp, $puaag, $pua, $unAGlyphs);
    }
}
